home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48_1 / ipdldemo.exe / lha / GTOSIDIR.XFU < prev    next >
Text File  |  1991-02-27  |  247b  |  3 lines
  1. %%HP: T(3)A(D)F(.);
  2. \<< IFERR 'xFgI' PURGE OBJ\-> \-> id \<< HOME xFxD EVAL 1 id SIZE FOR i id i GET IF { HOME UPDIR } OVER POS 15 TVARS 3 PICK POS OR THEN EVAL ELSE DUP CRDIR EVAL END NEXT \>> PATH HOME DUP 'xFiD' STO EVAL THEN CLOSEIO END \>>
  3.